home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / digitize.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  125 lines
  1. 0 POKE53281,12:POKE53280,11:PRINT"[151]":IFPEEK(828)=126THEN40
  2. 1 PRINT"[147]  THIS PROGRAM REQUIRES A *DATASETTE*":POKE828,126
  3. 2 PRINT"TO RECORD SOUNDS.":PRINT"BEST RESULTS ARE OBTAINED WITH VOICE "
  4. 3 PRINT"WITH [144]NO[151] BACKGROUND NOISE AT ALL."
  5. 4 PRINT"TYPED IN FROM [144]AHOY[151] MAGAZINE SEPT. 86"
  6. 6 PRINT"NOTE: THE LOWER THE PITCH, THE HIGHER   THE QUALITY, THE SHORTER ";
  7. 7 PRINT"THE SOUND."
  8. 8 PRINT"EXAMPLE 'NOT FUNNY.[144]8[151].DG' IS AT PITCH 8  FOR MAXIMUM EFFECT.":GOTO11
  9. 9 PRINT"MODIFIED ON [144]BINARY CONNECTION":PRINT,"PRESS A KEY":FORK=0TO1:GETA$
  10. 10 K=-(A$<>""):NEXT:GOTO30
  11. 11 PRINT"SO PLAY IT BACK AT [144]8[151].":PRINT"ORIGINALLY BY SCOTT BAGGS":GOTO9
  12. 30 GOSUB4000
  13. 40 P=5
  14. 50 PRINT,"[147][151]DIGITIZER THING                         ":POKE53280,11
  15. 53 PRINT,"1 RECORD PHRASE"
  16. 54 PRINT,"2 PLAY PHRASE":PRINT,"3 LOAD DATA":PRINT,"4 SAVE DATA"
  17. 55 PRINT"CURSOR UP-DOWN PITCH:[144]"PCHR$(20)"[151](5) "CHR$(20)" "
  18. 56 GETA$:IFA$=""THEN56
  19. 57 IFA$=""THENP=(P+1)AND255
  20. 58 IFA$="[145]"THENP=ABS(P-1)
  21. 59 POKE49358,P:IFVAL(A$)>4THEN56
  22. 60 ON VAL(A$)GOSUB200,70,400,1000
  23. 65 GOTO 50
  24. 70 REM PLAY
  25. 100 SR=32:GOSUB110:POKE53280,7
  26. 102 POKE53265,PEEK(53265)AND239:
  27. 105 SYS49287:POKE53280,11
  28. 106 POKE53265,PEEK(53265)OR16
  29. 108 RETURN
  30. 110 A=49154
  31. 120 POKEA,0:POKEA+1,SR:POKEA+3,SR+128:POKEA+2,0:RETURN
  32. 200 POKE53280,5
  33. 210 PRINT"[147]RECORD - PRESS [144]PLAY[151] ON TAPE (F1 ABORTS)"
  34. 215 GETA$:IF(PEEK(1)AND16)=16ANDA$<>"[133]"THEN215
  35. 216 IFA$="[133]"THEN50
  36. 220 SR=32:GOSUB110
  37. 230 SYS49200:POKE53280,11
  38. 235 POKE192,32:POKE1,55
  39. 240 RETURN
  40. 400 PRINT"[147]LOAD DATA                               [151]":POKE53280,6
  41. 420 FL$="":INPUT"FILENAME TO LOAD";FL$:IFFL$=""THEN50
  42. 430 LOADFL$,8,1
  43. 480 RETURN
  44. 1000 PRINT"[147]SAVE SPEECH DATA                        [151]":POKE53280,2
  45. 1005 F$="":INPUT"NAME TO SAVE UNDER";F$:IFF$=""THEN40
  46. 1015 REM LOC.
  47. 1020 POKE187,PEEK(71):POKE188,PEEK(72)
  48. 1025 REM CSLC POINT TO F$
  49. 1030 FA=PEEK(187)+256*PEEK(188)
  50. 1035 REM LEN
  51. 1040 POKE183,PEEK(FA)
  52. 1055 REM FN POINTER
  53. 1060 POKE187,PEEK(FA+1):POKE188,PEEK(FA+2)
  54. 1070 REM
  55. 1080 SA$="2000"
  56. 1090 N$=SA$:GOSUB2000:SL=BL:SH=BH
  57. 1095 REM
  58. 1100 EA$="A000"
  59. 1110 N$=EA$:GOSUB2000:EL=BL:EH=BH
  60. 1115 REM
  61. 1120 POKE251,SL:POKE252,SH
  62. 1125 REM
  63. 1130 POKE186,8:POKE185,1
  64. 1140 POKE780,251:POKE781,EL:POKE782,EH
  65. 1150 SYS65496: REM SAVE
  66. 1160 RETURN
  67. 1999 REM WHAT A DUMB PLACE FOR A REM
  68. 2000 REM HEX => DECIMAL
  69. 2020 N=0
  70. 2030 FORI=1TOLEN(N$)
  71. 2040 X=ASC(MID$(N$,I))-48
  72. 2050 N=16*N+X+7*(X>9)
  73. 2060 NEXT
  74. 2100 BH=INT(N/256):BL=N-256*BH
  75. 2110 RETURN
  76. 4000 FORI=49152TO49371
  77. 4010 READQ
  78. 4020 POKEI,Q
  79. 4030 NEXT I
  80. 4040 RETURN
  81. 5000 DATA 0,255,00,64,0
  82. 5010 DATA 88,5,255,00,255
  83. 5020 DATA 0,255,0,0,0
  84. 5030 DATA 255,0,1,2,4
  85. 5040 DATA 8,16,32,64,128
  86. 5050 DATA 255,0,255,0,255
  87. 5060 DATA 0,255,0,254,253
  88. 5070 DATA 251,247,239,223,191
  89. 5080 DATA 127,255,187,255,3
  90. 5090 DATA 255,32,255,173,17
  91. 5100 DATA 208,41,239,141,17
  92. 5110 DATA 208,120,32,192,192
  93. 5120 DATA 173,13,220,240,251
  94. 5130 DATA 162,16,173,13,220
  95. 5140 DATA 208,6,202,240,241
  96. 5150 DATA 76,67,192,162,8
  97. 5160 DATA 32,205,192,173,13
  98. 5170 DATA 220,41,16,240,10
  99. 5180 DATA 177,2,29,16,192
  100. 5190 DATA 145,2,76,110,192
  101. 5200 DATA 177,2,61,32,192
  102. 5210 DATA 145,2,76,110,192
  103. 5220 DATA 202,208,223,200,208
  104. 5230 DATA 218,230,3,165,3
  105. 5240 DATA 205,5,192,208,209
  106. 5250 DATA 88,173,17,208,9
  107. 5260 DATA 16,141,17,208,96
  108. 5270 DATA 120,32,192,192,162
  109. 5280 DATA 8,32,205,192,177
  110. 5290 DATA 2,61,16,192,240
  111. 5300 DATA 12,169,15,141,24
  112. 5310 DATA 212,76,159,192,234
  113. 5320 DATA 76,175,192,169,0
  114. 5330 DATA 141,24,212,76,171
  115. 5340 DATA 192,234,76,175,192
  116. 5350 DATA 202,208,219,200,208
  117. 5360 DATA 214,230,3,165,3
  118. 5370 DATA 205,5,192,208,205
  119. 5380 DATA 88,96,173,2,192
  120. 5390 DATA 133,2,173,3,192
  121. 5400 DATA 133,3,160,0,96
  122. 5410 DATA 169,5,141,0,192
  123. 5420 DATA 206,0,192,173,0
  124. 5430 DATA 192,208,248,96,255
  125.